home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 3 / Cream of the Crop 3.iso / comm / voxel101.zip / VOIXELFA.REX < prev    next >
OS/2 REXX Batch file  |  1994-02-06  |  2KB  |  85 lines
  1. /* FaxScript For GPFax And VoiXEL                            */
  2. /* Start/Listen GPFax, Recieve Fax, Exit/Unlisten GPFax        */
  3.  
  4. ADDRESS VOIXELPORT
  5. options results
  6.  
  7. signal on break_c
  8. signal on halt
  9. signal on syntax
  10.  
  11. options failat 50
  12.  
  13. say "FaxScript For GPFax And VoiXEL"
  14.  
  15. ADDRESS COMMAND "VoiXEL:VoiXELWaitForPort -q REXX_GPFAX"
  16.  
  17. if rc>0 then
  18.     do
  19.         ADDRESS COMMAND "run >nil: <nil: GPFax:GPFax -z -W -NP -Q"
  20.         ADDRESS COMMAND "VoiXEL:VoiXELWaitForPort REXX_GPFAX"
  21.         if rc>0 then
  22.         do
  23.             call setVars(rc)
  24.             exit
  25.         end
  26.         ADDRESS rexx_gpfax recfax
  27.         call setVars(rc)
  28.         ADDRESS rexx_gpfax quitfax
  29.     end
  30. else
  31.     do
  32.         ADDRESS rexx_gpfax openserial
  33.         ADDRESS rexx_gpfax recfax
  34.         call setVars(rc)
  35.         ADDRESS rexx_gpfax closeserial
  36.     end
  37. exit
  38.  
  39.  
  40. setVars: procedure
  41.     parse arg error
  42.  
  43.     if error=0 then
  44.         do
  45.         address rexx_gpfax 'reportlog' 3
  46.         address voixelport 'setVAR RETURNCODE ' || result
  47.         address rexx_gpfax 'reportlog' 4
  48.         address voixelport 'setVAR CALLERNUMBER ' || result
  49.         address rexx_gpfax 'reportlog' 6
  50.         address voixelport 'setVAR LENGTH ' || result
  51.         address rexx_gpfax 'reportlog' 1
  52.         address voixelport 'setVAR FILENAME ' || result
  53.         end
  54.     else
  55.         do
  56.         address voixelport 'setVAR RETURNCODE ' || 'FAIL'
  57.         address voixelport 'setVAR CALLERNUMBER ' || 'FAIL'
  58.         address voixelport 'setVAR LENGTH ' || 0
  59.         address voixelport 'setVAR FILENAME'
  60.     end
  61.     return rc
  62.  
  63.  
  64. error:
  65.     call Debug("Error" rc "at line" sigl)
  66.     return rc
  67.  
  68. break_c:
  69. halt:
  70.     call Debug("CTRL_C at line" sigl)
  71.     exit 20
  72.  
  73. syntax:
  74.     call Debug("Syntax error" rc "at line" sigl)
  75.     return rc
  76.  
  77.  
  78. Debug: procedure
  79.     parse arg info
  80.  
  81.     firstLine = sourceline(1)
  82.     parse var firstLine '/*' title '*/'
  83.     say title ':' info
  84.     return
  85.